use FindBin qw($Bin);




push (@INC,"$Bin");


require  'ts_pack.pl';

ts_pack::printx();


